(describe-fontset): Don't cons uselessly.

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 6a36e74d10044120a8193bda148f1307fb69ee6d..8aa853b3d8239280873753d2e71f52f14e8d4ae5 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1077,9 +1077,8 @@ This shows which font is used for which character(s)."
    (if (not (and window-system (fboundp 'fontset-list)))
        (error "No fontsets being used")
      (let ((fontset-list (nconc
-                         (mapcar 'list (fontset-list))
-                         (mapcar (lambda (x) (list (cdr x)))
-                                 fontset-alias-alist)))
+                         (fontset-list)
+                         (mapcar 'cdr fontset-alias-alist)))
           (completion-ignore-case t))
        (list (completing-read
              "Fontset (default, used by the current frame): "